perm filename LISP.PPR[E81,JMC] blob
sn#607276 filedate 1981-08-14 generic text, type T, neo UTF8
the proof LISP:
(DECL (U V W) |GROUND| VARIABLE LIST)
(DECL (X Y Z) |GROUND| VARIABLE SEXP)
(DECL (A B C) |GROUND| VARIABLE)
(DECL (PHI) |GROUND→TRUTHVAL| VARIABLE)
(DECL (NNIL) |GROUND| CONSTANT LIST)
(DECL (CONS) |GROUND⊗GROUND→GROUND| CONSTANT)
(DECL (CAR CDR) |GROUND→GROUND| CONSTANT)
(DECL (NULL) |GROUND→TRUTHVAL| CONSTANT)
(DECL (LIST) |GROUND→TRUTHVAL| CONSTANT)
(DECL (SEXP) |GROUND→TRUTHVAL| CONSTANT)
(AXIOM |∀U.SEXP(U)|)
11. ∀U.SEXP(U)
ctxt: (1 10) deps: NIL
(AXIOM |∀X U.LIST(CONS(X,U))|)
12. ∀X U.LIST(CONS(X,U))
ctxt: (1 2 6 9) deps: NIL
(AXIOM |∀U.NULL(U)≡U=NNIL|)
13. ∀U.NULL(U)≡U=NNIL
ctxt: (1 5 8) deps: NIL
(AXIOM |∀X U.¬NULL(CONS(X,U))|)
14. ∀X U.¬NULL(CONS(X,U))
ctxt: (1 2 6 8) deps: NIL
(AXIOM |∀X U.CAR(CONS(X,U))=X|)
15. ∀X U.CAR(CONS(X,U))=X
ctxt: (1 2 6 7) deps: NIL
(AXIOM |∀X U.CDR(CONS(X,U))=U|)
16. ∀X U.CDR(CONS(X,U))=U
ctxt: (1 2 6 7) deps: NIL
(AXIOM |∀PHI.PHI(NNIL)∧(∀X U.PHI(U)⊃PHI(CONS(X,U)))⊃(∀U.PHI(U))|)
17. ∀PHI.PHI(NNIL)∧(∀X U.PHI(U)⊃PHI(CONS(X,U)))⊃(∀U.PHI(U))
ctxt: (1 2 4 5 6) deps: NIL